home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DDJMAG / DDJ9005.ZIP / AYERS.ZIP / BAGGER.CLS next >
Text File  |  1990-02-24  |  477b  |  30 lines
  1.  
  2. MarketActor subclass: #Bagger
  3.   instanceVariableNames: 
  4.     'checker '
  5.   classVariableNames: ''
  6.   poolDictionaries: '' !
  7.  
  8. !Bagger class methods !
  9.  
  10. alternateImageName 
  11.     ^'PersonRight'.! !
  12.  
  13.  
  14. !Bagger methods !
  15.  
  16. checker:aChecker 
  17.     checker := aChecker.!
  18.  
  19. release
  20.     checker := nil.  super release.!
  21.  
  22. takeItem
  23.     running
  24.         ifTrue:[
  25.             self
  26.                 animate;
  27.                 sleep:1;
  28.                 send:#gotIt to:checker;
  29.                 display].! !
  30.